home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd1.bin / zkuste / xteq / download / xsetup-63.exe / setup.exe / {app} / plugins / XQ IE Options 9.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-03-31  |  1.1 KB  |  39 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="Window Full Screen"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.00"
  8. "TEXT 1"="Display Internet Explorer in full screen mode"
  9. "DESCRIPTION 1"="If this option is activated, Internet Explorer will appear in full-screen (aka Kiosk mode) directly when it's started."
  10. "DESCRIPTION 2"="Inside Internet Explorer, you can toggle between full-screen and normal mode with "F11"."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="found by http://www2.cajun.net/~theriots/blk/xp_reg_edits.htm"
  15.  
  16. sV1="HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main\FullScreen " 'str
  17.  
  18. SUB Plugin_Initialize  
  19.   s=RegReadValue(sV1)
  20.   if s="yes" then SetUIElement 1,true
  21. END SUB
  22.  
  23. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  24.  b=GetUIElement(1)
  25.  if b=true then
  26.     Call RegWriteValue(sV1,"yes",1)
  27.  else 
  28.     If RegValueExists(sV1) then
  29.        Call RegDeleteValue(sV1)
  30.     end if
  31.  end if
  32.  
  33.  Call Restart()
  34. END SUB
  35.  
  36. SUB Plugin_Terminate
  37. END SUB
  38.  
  39.